Llamando librerías
library(ggplot2)
library(dplyr)
library(plotly)
Leemos datos y agregamos Interpretación de Estatus
base<-read.csv("../data/UIID_statusdx.csv",header=T)
class(base)
base<-base%>%
as_data_frame()%>%
mutate(EstatusDx=as.character(ESTATUDX),
EstatusDx=if_else(ESTATUDX==0,"C. Sin IDP",EstatusDx),
EstatusDx=if_else(ESTATUDX==1,"B. Con IDP",EstatusDx),
EstatusDx=if_else(ESTATUDX==2,"A. IDP en estudio",EstatusDx))
class(base)
base

gg01_pl<-ggplotly(gg01)
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
gg01_pl$x$layout$xaxis$title<-"Año de consulta"
gg01_pl$x$layout$yaxis$title<-"densidad"
gg01_pl
El porcentaje de pacientes diagnosticados con IDP se mantiene constate o estable alrededor del 30%.
Se observa que antes (2011) había una mayor proporción de casos en los que se descartaba IDP y, que hoy, parte de esa propoción de casos (~30%), pasó a ser IDP en estudio, mostrando ser hoy más minuciosos para confirmar o descartar el diagnóstico.
Agrupando por año

gg02_pl<-ggplotly(gg02)
gg02_pl$x$layout$xaxis$title<-"Año de consulta"
gg02_pl$x$layout$yaxis$title<-"Frecuencia de casos"
gg02_pl
LS0tCnRpdGxlOiAiU3RhdHVzIER4IGRlIGxhIEJhc2UgVUlJRCIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKICBodG1sX25vdGVib29rOgogICAgZGZfcHJpbnQ6IHBhZ2VkCi0tLQoKIyMgTGxhbWFuZG8gbGlicmVyw61hcwpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgojIyBMZWVtb3MgZGF0b3MgeSBhZ3JlZ2Ftb3MgSW50ZXJwcmV0YWNpw7NuIGRlIEVzdGF0dXMKYGBge3J9CmJhc2U8LXJlYWQuY3N2KCIuLi9kYXRhL1VJSURfc3RhdHVzZHguY3N2IixoZWFkZXI9VCkKY2xhc3MoYmFzZSkKYmFzZTwtYmFzZSU+JQogIGFzX2RhdGFfZnJhbWUoKSU+JQogIG11dGF0ZShFc3RhdHVzRHg9YXMuY2hhcmFjdGVyKEVTVEFUVURYKSwKICAgICAgICAgRXN0YXR1c0R4PWlmX2Vsc2UoRVNUQVRVRFg9PTAsIkMuIFNpbiBJRFAiLEVzdGF0dXNEeCksCiAgICAgICAgIEVzdGF0dXNEeD1pZl9lbHNlKEVTVEFUVURYPT0xLCJCLiBDb24gSURQIixFc3RhdHVzRHgpLAogICAgICAgICBFc3RhdHVzRHg9aWZfZWxzZShFU1RBVFVEWD09MiwiQS4gSURQIGVuIGVzdHVkaW8iLEVzdGF0dXNEeCkpCmNsYXNzKGJhc2UpCmJhc2UKYGBgCgpgYGB7cn0KZ2cwMTwtZ2dwbG90KGRhdGE9YmFzZSxhZXMoeD1hbmlvY29ucywgZmlsbD1Fc3RhdHVzRHgpKSArIAogICAgZ2VvbV9kZW5zaXR5KGFkanVzdD0xLjUsIHBvc2l0aW9uPSJmaWxsIikKIyBnZzAxCmBgYApgYGB7cn0KZ2cwMV9wbDwtZ2dwbG90bHkoZ2cwMSkKZ2cwMV9wbCR4JGxheW91dCR4YXhpcyR0aXRsZTwtIkHDsW8gZGUgY29uc3VsdGEiCmdnMDFfcGwkeCRsYXlvdXQkeWF4aXMkdGl0bGU8LSJkZW5zaWRhZCIKZ2cwMV9wbApgYGAKCi0gRWwgcG9yY2VudGFqZSBkZSBwYWNpZW50ZXMgZGlhZ25vc3RpY2Fkb3MgY29uIElEUCBzZSBtYW50aWVuZSBjb25zdGF0ZSBvIGVzdGFibGUgYWxyZWRlZG9yIGRlbCAqKjMwJSoqLgoKLSBTZSBvYnNlcnZhIHF1ZSBhbnRlcyAoKjIwMTEqKSBoYWLDrWEgdW5hIG1heW9yIHByb3BvcmNpw7NuIGRlIGNhc29zIGVuIGxvcyBxdWUgc2UgZGVzY2FydGFiYSBJRFAgeSwgcXVlIGhveSwgcGFydGUgZGUgZXNhIHByb3BvY2nDs24gZGUgY2Fzb3MgKCoqfjMwJSoqKSwgcGFzw7MgYSBzZXIgKipJRFAgZW4gZXN0dWRpbyoqLCBtb3N0cmFuZG8gc2VyIGhveSBtw6FzIG1pbnVjaW9zb3MgcGFyYSBjb25maXJtYXIgbyBkZXNjYXJ0YXIgZWwgZGlhZ27Ds3N0aWNvLgoKIyMgQWdydXBhbmRvIHBvciBhw7FvCmBgYHtyfQpnYjAxPC1iYXNlJT4lCiAgZ3JvdXBfYnkoYW5pb2NvbnMpJT4lCiAgc3VtbWFyaXNlKG5fcHg9bigpLAogICAgICAgICAgICBwZXJfcHg9cm91bmQobl9weC9ucm93KC4pLDQpKQpnYjAxCmBgYAoKYGBge3J9CmdiMDI8LWJhc2UlPiUKICBncm91cF9ieShhbmlvY29ucyklPiUKICBtdXRhdGUobl9weD1uKCkjLAogICAgICAgICAjIHBlcl9weD1yb3VuZChuX3B4L25yb3coLiksNCkKICAgICAgICAgKSU+JQogIHVuZ3JvdXAoKSU+JQogIGdyb3VwX2J5KGFuaW9jb25zLEVTVEFUVURYKSU+JQogIG11dGF0ZShuX3N0X2FuaW89bigpLAogICAgICAgICBwZXJfc3RfYW5pbz1yb3VuZChuX3N0X2FuaW8vbl9weCw0KSklPiUKICBmaWx0ZXIocm93X251bWJlcigpPT0xKSU+JQogIHNlbGVjdCgtRXhwZWRpZW50ZSkKCmdiMDIKYGBgCgpgYGB7cn0KZ2cwMiA8LWdncGxvdChnYjAyLCBhZXMoYW5pb2NvbnMsIG5fc3RfYW5pbykpKwogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBhZXMoZmlsbCA9IEVzdGF0dXNEeCkpCgojIGdnMDIgCmBgYAoKYGBge3J9CmdnMDJfcGw8LWdncGxvdGx5KGdnMDIpCmdnMDJfcGwkeCRsYXlvdXQkeGF4aXMkdGl0bGU8LSJBw7FvIGRlIGNvbnN1bHRhIgpnZzAyX3BsJHgkbGF5b3V0JHlheGlzJHRpdGxlPC0iRnJlY3VlbmNpYSBkZSBjYXNvcyIKZ2cwMl9wbApgYGAKCmBgYHtyfQoKYGBgCgpgYGB7cn0KCmBgYAoKYGBge3J9CgpgYGAKCmBgYHtyfQoKYGBgCgo=